1000 REM"[208]ROGRAMME [195][193][204][197][206][196][210][201][197][210]
1010 [143]"(null)ROGRAM   LENATN(null)VAL(null)STR$ATN(null)
1020 REM
1030 REM"PAR/BY   [208]ATRICK [217][193][206][199]
1040 [143]"POUR/FOR   LENPEEK(null) 64   AVEC/WITH
1050 REM"IMPRIMANTE [199][197][205][201][206][201]-10[216] PRINTER
1060 [143]"INTERFACE USED/UTILISE (null)ECONDARY ADRESS
1070 REM                        5 PRINTER CHARACTER SET  NO LINE FEED IS SENT
1080 REM                        7 UPPER/LOWER CASE       AFTER CARRIAGE RETURN
1090 REM
1100 DIM M$(50,1),DUREE(11)
1110 PRINT CHR$(147)CHR$(14);TAB(6)"*** [195][193][204][197][206][196][210][201][197][210]/[195][193][204][197][206][196][193][210] ***"
1120 FOR I=0 TO 29
1130 FOR J=0 TO 1
1140 READ M$(I,J)
1150 NEXT J,I
1160 PRINT:PRINT:PRINT:PRINT M$(0,1)
1170 FOR I=0 TO 11:READ DUREE(I):NEXT I
1180 PRINT:PRINT M$(0,0)
1190 E$=CHR$(27)
1200 GET R$:IF R$="" THEN 1200
1210 IF R$="E" OR R$="[197]" OR R$="A" OR R$="[193]" THEN LANGUE=1:GOTO 1240
1220 IF R$="F" OR R$="[198]" THEN LA=0:GOTO 1240
1230 PRINT"[197],[198] OU/OR [193] !":GOTO 1200
1240 PRINT:PRINT M$(1,LA)
1250 PRINT:PRINT M$(2,LA)
1260 GET R$:IF R$="" THEN 1260
1270 IF R$="A" OR R$="[193]" OR R$="Y" OR R$="[217]" THEN FLAG=1:GOTO 1300
1280 IF R$="M" OR R$="[205]" THEN FLAG=2:GOTO 1300
1290 PRINT "[193],[217] OU/OR [205] !":GOTO 1260
1300 IF FLAG=1 THEN B1=1:B2=12:GOTO1330
1310 PRINT M$(4,LA);:INPUT B1:B2=B1
1320 IF B1<1 OR B1>12 THEN 1310
1330 PRINT M$(3,LA);" (>1582)";:INPUT ANNEE
1340 IF AN<1582 THEN 1330
1350 YEAR$=RIGHT$(STR$(AN),4)
1360 FOR I=1 TO 4:ANNEE$=AN$+"  "+MID$(YE$,I,1):NEXT I
1370 OPEN 4,4,5:PRINT#4,E$"@"E$"E"E$"G";:CLOSE 4
1380 FOR I=B1 TO B2
1390 ES=28-LEN(M$(I+4,LA))
1400 OPEN 4,4,5:PRINT#4,E$"W"CHR$(1)E$"-"CHR$(0)E$CHR$(97)CHR$(5);:CLOSE 4
1410 OPEN 4,4,7:PRINT#4,M$(I+4,LA);:PRINT#4,SPC(ES)AN$:CLOSE 4
1420 OPEN 4,4,5:PRINT#4,E$"W"CHR$(0)E$CHR$(45)CHR$(1)
1430 PRINT#4,E$CHR$(97)CHR$(7):CLOSE 4
1440 OPEN 4,4,7
1450 FOR J=1 TO 80:PRINT#4,"-";:NEXT J
1460 FOR J=0 TO 5:PRINT#4,M$(J+17,LA)+"  ";:NEXT J:PRINT#4,M$(23,LA):CLOSE 4
1470 OPEN 4,4,5:PRINT#4,E$"-"CHR$(0)
1480 PRINT#4,E$CHR$(97)CHR$(5):CLOSE 4
1490 DU=DU(I-1)
1500 IF DU>28 THEN GOTO 1540
1510 J=29:M=2:A=AN:GOSUB 1780:J1=JS
1520 J=1:M=3:A=AN:GOSUB 1780:J2=JS
1530 IF J2<>J1 THEN DU=29
1540 OPEN 4,4,5:PRINT#4,E$"W"CHR$(1);
1550 J=1:M=I:A=AN:GOSUB 1780:K=2
1560 JS=JS-1:IF JS=-1 THEN JS=6
1570 ES=5*(JS+2):PRINT#4,SPC(6*JS+1);1;"  ";
1580 K$=STR$(K):IF K<10 THEN K$=" "+K$
1590 IF ES>39 THEN PRINT#4,E$CHR$(97)CHR$(4):ES=5
1600 ES=ES+5
1610 PRINT#4,K$;SPC(3);
1620 K=K+1:IF K<=DU THEN 1580
1630 CLOSE 4:L=29.530589:OPEN 4,4,5
1640 PRINT#4,E$CHR$(87)CHR$(0)E$CHR$(66)CHR$(3);
1650 PRINT#4,E$CHR$(97)CHR$(3):CLOSE 4:OPEN 4,4,9
1660 FOR J=1 TO 15:GOSUB 1780
1670 LU=(F-722989)/L+5000
1680 LU=INT((LU-INT(LU))*L*10+.5)/10
1690 PH=LU/7.4
1700 IF (PH-INT(PH))>1/7.4 THEN NEXT J
1710 PRINT#4,M$(24+PH,LA)M$(29,LA);INT(J)
1720 J=J+7.4:IF J<DU THEN PH=-(PH<3.5)*PH:PH=PH+1:GOTO 1710
1730 PRINT#4,CHR$(10)
1740 CLOSE 4:OPEN 4,4,5
1750 PRINT#4,CHR$(12)
1760 CLOSE 4:NEXT I
1770 END
1780 IF M>2 THEN 1800
1790 F=365*A+J+31*(M-1)+INT((A-1)/4)-INT(.75*(INT(((A-1)/100)+1))):GOTO 1810
1800 F=365*A+J+31*(M-1)-INT(.4*M+2.3)+INT(A/4)-INT(.75*(INT(A/100)+1)):GOTO 1810
1810 JS=F-(INT(F/7)*7)
1820 RETURN
1830 END
1840 DATA "[214]OULEZ-VOUS LA VERSION ([198])RANCAISE OU   ([193])NGLAISE ?"
1850 DATA "[196]O YOU WANT THE ([197])NGLISH OR ([198])RENCH   VERSION ?"
1860 DATA "[214]OUS AVEZ CHOISI LE FRANCAIS.","[217]OU CHOSE ENGLISH."
1870 DATA "[214]OULEZ-VOUS UNE ([193])NNEE COMPLETE OU UN  SEUL ([205])OIS"
1880 DATA "[196]O YOU WANT A COMPLETE ([217])EAR OR A      SINGLE ([205])ONTH"
1890 DATA "[204]'ANNEE","[212]HE YEAR","[204]E MOIS (1-12)","[212]HE MONTH (1-12)"
1900 DATA "[202]  [193]  [206]  [214]  [201]  [197]  [210]","[202]  [193]  [206]  [213]  [193]  [210]  [217]"
1910 DATA "[198]  [197]  [214]  [210]  [201]  [197]  [210]","[198]  [197]  [194]  [210]  [213]  [193]  [210]  [217]"
1920 DATA "[205]  [193]  [210]  [211]","[205]  [193]  [210]  [195]  [200]"                          
1930 DATA "[193]  [214]  [210]  [201]  [204]","[193]  [208]  [210]  [201]  [204]"
1940 DATA "[205]  [193]  [201]","[205]  [193]  [217]"
1950 DATA "[202]  [213]  [201]  [206]","[202]  [213]  [206]  [197]"
1960 DATA "[202]  [213]  [201]  [204]  [204]  [197]  [212]","[202]  [213]  [204]  [217]"
1970 DATA "[193]  [207]  [213]  [212]","[193]  [213]  [199]  [213]  [211]  [212]"
1980 DATA "[211]  [197]  [208]  [212]  [197]  [205]  [194]  [210]  [197]","[211]  [197]  [208]  [212]  [197]  [205]  [194]  [197]  [210]"
1990 DATA "[207]  [195]  [212]  [207]  [194]  [210]  [197]","[207]  [195]  [212]  [207]  [194]  [197]  [210]"
2000 DATA "[206]  [207]  [214]  [197]  [205]  [194]  [210]  [197]","[206]  [207]  [214]  [197]  [205]  [194]  [197]  [210]"
2010 DATA "[196]  [197]  [195]  [197]  [205]  [194]  [210]  [197]","[196]  [197]  [195]  [197]  [205]  [194]  [197]  [210]"
2020 DATA "[196]IMANCHE  ","[211]UNDAY    ","[204]UNDI     ","[205]ONDAY    "
2030 DATA "[205]ARDI     ","[212]UESDAY   ","[205]ERCREDI  ","[215]EDNESDAY "
2040 DATA "[202]EUDI     ","[212]HURSDAY  ","[214]ENDREDI  ","[198]RIDAY    "
2050 DATA "[211]AMEDI  ","[211]ATURDAY"
2060 DATA "[206]OUVELLE LUNE","[206]EW MOON"
2070 DATA "[208]REMIER QUARTIER","[198]IRST QUARTER"
2080 DATA "[208]LEINE LUNE","[198]ULL MOON"
2090 DATA "[196]ERNIER QUARTIER","[204]AST QUARTER"
2100 DATA "[206]OUVELLE LUNE","[206]EW MOON"
2110 DATA ", LE",", ON THE"
2120 DATA 31,28,31,30,31,30,31,31,30,31,30,31